home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / mail-tools / thor / thor_2.22 / thor.lha / rexx / BBSRead / PackBBS.br < prev    next >
Text File  |  1995-12-18  |  1KB  |  78 lines
  1. /* PackBBS.br
  2.  *
  3.  * Packs bbs'es.
  4.  *
  5.  * Script by: Eivind Nordseth, Ultima Thule Software.
  6.  */
  7.  
  8. /*    trace results */
  9.  
  10.     parse arg argument
  11.  
  12.     if ~show('p', 'BBSREAD') then do
  13.         address command
  14.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  15.             "WaitForPort BBSREAD"
  16.     end
  17.  
  18.     address BBSREAD
  19.  
  20.     if argument = '' then 
  21.     do
  22.         say '$VER: PackBBS.br 3.1 (31.08.94)'
  23.         say 'Packs one or ALL BBSes.'
  24.         say 'Template:' BBSNAME
  25.         exit
  26.     end
  27.  
  28.     if argument = "ALL" then
  29.     do
  30.         GETBBSLIST stem BBSLIST 
  31.         if(rc ~= 0) then 
  32.         do
  33.             say BBSREAD.LASTERROR
  34.             exit
  35.         end
  36.  
  37.         do n=1 to BBSLIST.COUNT
  38.             say 'Packing bbs:' BBSLIST.n
  39.  
  40.             GETCONFLIST stem CONFLIST '"'||BBSLIST.n||'"'
  41.             if(rc ~= 0) then 
  42.             do
  43.                 say BBSREAD.LASTERROR
  44.                 exit
  45.             end
  46.             do i=1 to CONFLIST.COUNT
  47.                 say 'Packing conference:' CONFLIST.i
  48.  
  49.                 PACKDATAFILE bbsname '"'||BBSLIST.n||'"' confname '"'||CONFLIST.i||'"' SHOWPROGRESS
  50.                 if(rc ~= 0) then
  51.                 do
  52.                     say BBSREAD.LASTERROR
  53.                     exit
  54.                 end
  55.             end
  56.         end
  57.     end
  58.     else 
  59.     do
  60.         GETCONFLIST stem CONFLIST argument 
  61.         if(rc ~= 0) then 
  62.         do
  63.             say BBSREAD.LASTERROR
  64.             exit
  65.         end
  66.  
  67.         do i=1 to CONFLIST.COUNT
  68.             say 'Packing conference:' CONFLIST.i
  69.  
  70.             PACKDATAFILE argument confname '"'||CONFLIST.i||'"' SHOWPROGRESS
  71.             if(rc ~= 0) then
  72.             do
  73.                 say BBSREAD.LASTERROR
  74.                 exit
  75.             end
  76.         end
  77.     end
  78.